10PRINT"{clr}{down}PLEASE BE PATIENT, COPYING LEVEL DATA..."
20ME=32768
30K=81
40EI=46
50WI=160
60Z=0
70LO=0
80FORI=0TO1
90READX
100POKEME+Z,ABS(X)
110I=-(X=-1)
120Z=Z+1
130NEXT
140PRINT"{clr}{down}               MICRO MOVES"
150CR=55428
160SR=1156
170M=0
180T=0
190AC=0
200SC=0
210SO=0
220R=0
230Z=0
240L=PEEK(ME)
250FORW=0TOL-1
260D=(W-INT(W/2)*2)
270Z=Z+1
280V=PEEK(ME+Z)
290B=128
300FORI=0TO7
310C=WI+((VANDB)<>B)*114
320F=15+((VANDB)<>B)
330POKESR+I+D*8+R,C
340POKECR+I+D*8+R,F
350B=INT(B/2)
360NEXT
370R=R+D*40
380NEXT
390Z=Z+1
400LO=ME
410L=PEEK(ME+Z)-1
420Z=Z+1
430AC=L
440FORI=0TOL
450C=PEEK(ME+Z)
460Z=Z+1
470X=C/16AND15
480Y=CAND15
490POKESR+X+40*Y,K
500C=PEEK(ME+Z)
510Z=Z+1
520POKE49152+I,C
540POKECR+(PEEK(49152+I)/16AND15)+40*(PEEK(49152+I)AND15),13
550NEXT
560C=PEEK(ME+Z)
570X=C/16AND15
580Y=CAND15
590SO=SR+X+40*Y
600SC=PEEK(SO)
610POKESO,87
620T=0
630FORI=0TOAC
640T=T+-(PEEK(SR+(PEEK(49152+I)/16AND15)+40*(PEEK(49152+I)AND15))=K)
650NEXT
660POKE211,5
670POKE214,PEEK(LO)/2+4
680SYS58732
690PRINT"LEVEL:"(LE+1)" TARGETS:"T" MOVES:"M
700ON-(T=AC+1)GOTO960
710GETA$
720ON-(A$="")GOTO710
730ON-(A$="R")GOTO140
740ON-(A$="C")GOTO960
750ON-(A$<>"R"ANDA$<>"C"ANDA$<>"{up}"ANDA$<>"{down}"ANDA$<>"{right}"ANDA$<>"{left}")GOTO710
760O=(A$="{up}")*40+(A$="{down}")*-40+(A$="{right}")*-1+(A$="{left}")
770P=SO+O
780ON-(PEEK(P)=WI)GOTO620
790ON-(PEEK(P)=81)GOTO880
800M=M+1
810O1=SO
820SO=P
830NC=PEEK(SO)
840SC=NC
850POKESO,PEEK(O1)
860POKEO1,EI
870GOTO620
880P2=SO+O*2
890ON-(PEEK(P2)<>EI)GOTO620
900M=M+1
910POKEP2,PEEK(P)
920POKEP,PEEK(SO)
930POKESO,EI
940SO=P
950GOTO620
960ME=LO+Z+1
970LE=LE+1
980POKE211,8
990POKE214,21
1000SYS58732
1010PRINT"(N)EXT LEVEL OR E(X)IT"
1020GETA$
1030ON-(A$="")GOTO1020
1040ON-(A$="N"ANDLE<46)GOTO140
1050ON-(A$="X")GOTO1070
1060GOTO1020
1070END
1080DATA14,1,224,7,32,4,32,4,32,4,96,4,64,7,192,3,131,115,116,116,132,117,146:REM   1
1090DATA14,1,224,3,32,14,32,8,32,8,96,14,64,3,192,2,131,114,132,116,84:REM   2
1100DATA14,3,192,6,64,4,96,12,32,8,32,8,96,15,192,3,99,114,116,131,100,116,101:REM   3
1110DATA14,7,224,4,32,4,32,6,32,2,32,3,32,3,224,3,147,130,115,147,132,132,148:REM   4
1120DATA14,15,224,8,32,10,32,8,32,14,96,2,64,3,192,2,131,114,116,116,115:REM   5
1130DATA14,3,192,14,64,8,96,8,32,8,32,8,224,15,128,4,114,114,115,131,116,115,132,116,129:REM   6
1140DATA16,15,192,8,96,8,32,8,32,12,96,4,192,4,128,7,128,4,99,115,131,99,100,131,117,116,102:REM   7
1150DATA16,7,128,4,224,4,32,4,32,6,32,2,96,2,64,3,192,3,114,130,131,147,116,132,117:REM   8
1160DATA14,15,224,8,32,8,32,8,224,8,32,14,32,7,192,3,97,113,100,98,132,99,115:REM   9
1170DATA16,3,192,2,112,14,16,8,80,8,16,15,48,1,32,1,224,3,115,114,132,146,149,131,130:REM   10
1180DATA14,1,240,7,16,12,80,8,16,9,80,12,16,7,240,3,147,161,132,133,117,149,162:REM   11
1190DATA14,1,240,15,16,8,80,10,16,8,80,15,16,1,240,3,131,82,147,116,100,164,145:REM   12
1200DATA16,1,240,1,16,15,80,8,16,10,48,8,160,14,32,3,224,3,147,116,101,132,149,148,130:REM   13
1210DATA16,15,128,8,128,10,240,10,16,8,80,8,80,15,16,1,240,3,114,81,147,85,117,133,132:REM   14
1220DATA18,15,128,8,128,10,128,10,240,8,16,10,80,8,80,15,16,1,240,3,100,113,132,118,117,134,114:REM   15
1230DATA18,3,240,14,16,8,80,11,80,11,16,8,48,13,160,4,32,7,224,3,98,129,131,101,148,149,113:REM   16
1240DATA16,3,192,2,64,2,112,14,16,8,80,10,16,8,240,15,128,3,115,130,147,117,132,133,100:REM   17
1250DATA16,15,128,8,128,10,224,10,32,8,32,11,32,8,32,15,224,3,114,81,131,148,100,133,83:REM   18
1260DATA16,1,224,15,32,8,32,10,32,8,96,11,64,8,64,15,192,3,98,82,130,84,132,85,133:REM   19
1270DATA16,1,240,1,16,15,80,8,16,10,80,10,80,8,16,15,240,3,131,118,147,134,133,150,84:REM   20
1280DATA16,15,192,8,64,8,96,10,32,8,32,14,160,2,32,3,224,4,130,114,115,84,131,100,132,117,129:REM   21
1290DATA18,1,240,15,16,8,80,10,16,8,112,13,64,5,64,4,64,7,192,3,98,100,130,116,134,132,162:REM   22
1300DATA14,15,240,8,16,10,80,10,16,8,80,15,16,1,240,3,115,147,116,163,132,164,82:REM   23
1310DATA10,15,224,8,32,8,160,8,32,15,224,3,113,81,98,83,99,131,97:REM   25
1320DATA16,15,224,8,32,10,160,8,32,14,32,2,160,2,32,3,224,3,114,146,99,148,131,117,115:REM   26
1330DATA16,1,240,1,16,15,80,8,16,10,48,8,160,14,32,3,224,3,130,163,148,132,101,149,150:REM   27
1340DATA16,1,240,15,16,8,80,10,16,8,112,13,64,4,64,7,192,3,114,98,147,131,101,116,145:REM   29
1350DATA16,3,224,2,32,2,176,14,16,8,80,10,16,8,240,15,128,3,146,131,116,100,149,165,117:REM   31
1360DATA16,1,240,1,16,15,80,8,16,10,48,8,160,14,32,3,224,3,130,116,99,132,101,148,83:REM   32
1370DATA16,7,192,4,64,13,64,8,112,10,16,8,80,15,16,1,240,3,98,115,130,148,101,117,97:REM   33
1380DATA16,31,0,17,0,21,240,16,16,30,208,2,208,2,16,3,240,3,147,163,116,117,150,134,164:REM   34
1390DATA16,15,192,8,64,9,112,8,16,8,80,14,208,2,16,3,240,3,130,97,99,99,131,116,82:REM   35
1400DATA14,15,0,9,192,8,96,8,32,12,160,4,32,7,224,3,114,131,115,115,99,100,101:REM   36
1410DATA16,15,192,8,64,8,96,10,32,8,160,14,32,2,32,3,224,3,131,98,100,114,117,131,148:REM   37
1420DATA16,3,240,14,16,8,80,10,16,8,112,9,64,8,64,15,192,3,147,98,116,115,133,147,132:REM   38
1430DATA18,7,192,4,112,4,16,12,208,8,208,10,16,10,240,8,128,15,128,3,146,114,100,99,133,84,163:REM   39
1440DATA16,15,128,8,240,10,16,10,80,8,16,15,80,1,16,1,240,3,146,163,115,84,100,100,164:REM   40
1450DATA16,31,0,17,240,20,16,16,208,20,208,20,16,17,240,31,0,3,114,67,68,69,133,70,130:REM   41
1460DATA16,15,128,8,128,10,240,8,16,12,80,5,80,4,16,7,240,3,99,134,131,150,100,166,115:REM   42
1470DATA14,7,128,4,192,12,64,8,96,8,32,12,32,7,224,3,114,114,131,115,116,116,84:REM   43
1480DATA16,15,192,8,64,8,112,10,16,8,80,14,208,2,16,3,240,3,131,130,116,115,117,147,150:REM   44
1490DATA16,15,192,8,64,8,112,10,16,8,80,14,208,2,16,3,240,3,131,98,116,130,117,83,150:REM   45
1500DATA14,15,0,9,240,8,16,8,16,9,240,9,0,15,0,3,146,81,115,99,84,101,162:REM   46
1510DATA-1
